inherited fmFindClient: TfmFindClient
  Width = 677
  Height = 673
  Caption = #1055#1086#1080#1089#1082' '#1082#1083#1080#1077#1085#1090#1072
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 8
    Top = 48
    Width = 75
    Height = 13
    Caption = #1057#1090#1088#1086#1082#1072' '#1087#1086#1080#1089#1082#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object sbFindClient: TSpeedButton [1]
    Left = 455
    Top = 64
    Width = 23
    Height = 22
    Hint = #1053#1072#1081#1090#1080
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
      300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
      330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
      333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
      339977FF777777773377000BFB03333333337773FF733333333F333000333333
      3300333777333333337733333333333333003333333333333377333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = sbFindClientClick
  end
  object sbEditClient: TSpeedButton [2]
    Left = 494
    Top = 47
    Width = 86
    Height = 39
    Hint = #1050#1086#1088#1088#1077#1082#1094#1080#1103' '#1082#1072#1088#1090#1086#1095#1082#1080' '#1082#1083#1080#1077#1085#1090#1072
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF773333303300000003333337337777777333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = sbEditClientClick
  end
  object sbAddClient: TSpeedButton [3]
    Left = 582
    Top = 47
    Width = 86
    Height = 39
    Hint = #1053#1086#1074#1072#1103' '#1082#1072#1088#1090#1086#1095#1082#1072' '#1082#1083#1080#1077#1085#1090#1072
    Glyph.Data = {
      76060000424D7606000000000000360000002800000014000000140000000100
      2000000000004006000000000000000000000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
      FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00000000000000000000000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000
      0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF000000
      FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF000000FF000000FF000000FF000000FF000000FF000000FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
      0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
      FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF000000000000000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF000000000000000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
      0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF000000FF000000FF000000FF000000FF000000FF000000FF00
      0000FF000000FF000000FF000000FF00FF000000FF000000FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF00
      0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
      FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      0000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00000000000000000000000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000
      0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    ParentShowHint = False
    ShowHint = True
    OnClick = sbAddClientClick
  end
  inherited sbBottom: TStatusBar
    Top = 591
    Width = 668
  end
  inherited Panel1: TPanel
    Top = 41
    Width = 668
    inherited BitBtn1: TBitBtn
      Default = False
      Kind = bkCustom
    end
  end
  object rgCriteria: TRadioGroup [6]
    Left = 0
    Top = 0
    Width = 668
    Height = 41
    Align = alTop
    Caption = ' '#1050#1088#1080#1090#1077#1088#1080#1081' '#1087#1086#1080#1089#1082#1072' '
    Columns = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ItemIndex = 0
    Items.Strings = (
      #1055#1086' '#1085#1072#1079#1074#1072#1085#1080#1102' '#1082#1083#1080#1077#1085#1090#1072'/'#1060#1048#1054' '#1082#1083#1080#1077#1085#1090#1072
      #1055#1086' '#1048#1053#1053' '#1082#1083#1080#1077#1085#1090#1072)
    ParentFont = False
    TabOrder = 2
  end
  object edString: TEdit [7]
    Left = 8
    Top = 64
    Width = 441
    Height = 21
    TabOrder = 3
    OnKeyDown = edStringKeyDown
  end
  object dbgClients: TcxGrid [8]
    Left = 0
    Top = 88
    Width = 667
    Height = 150
    TabOrder = 4
    LookAndFeel.Kind = lfStandard
    object dbgClientsDBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsData.Deleting = False
      OptionsData.Inserting = False
      OptionsView.Navigator = True
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object dbgClientsDBTableView1CLID: TcxGridDBColumn
        DataBinding.FieldName = 'CLID'
      end
      object dbgClientsDBTableView1CLNAME: TcxGridDBColumn
        DataBinding.FieldName = 'CLNAME'
        Width = 215
      end
      object dbgClientsDBTableView1CLLEGALNAME: TcxGridDBColumn
        DataBinding.FieldName = 'CLLEGALNAME'
        Width = 215
      end
      object dbgClientsDBTableView1CLINN: TcxGridDBColumn
        DataBinding.FieldName = 'CLINN'
      end
      object dbgClientsDBTableView1CTYPE: TcxGridDBColumn
        DataBinding.FieldName = 'CTYPE'
        Width = 56
      end
    end
    object dbgClientsLevel1: TcxGridLevel
      GridView = dbgClientsDBTableView1
    end
  end
  object dbgPers: TcxGrid [9]
    Left = 0
    Top = 238
    Width = 667
    Height = 150
    TabOrder = 5
    LookAndFeel.Kind = lfStandard
    object dbgPersTableView2: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dsPersons
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsData.Deleting = False
      OptionsData.Inserting = False
      OptionsView.Navigator = True
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object dbgPersTableView2OFTOWN: TcxGridDBColumn
        DataBinding.FieldName = 'OFTOWN'
        Width = 120
      end
      object dbgPersTableView2CRFIO: TcxGridDBColumn
        DataBinding.FieldName = 'CRFIO'
        Width = 300
      end
      object dbgPersTableView2CRPHONE: TcxGridDBColumn
        DataBinding.FieldName = 'CRPHONE'
        Width = 80
      end
      object dbgPersTableView2CRPHONEEXT: TcxGridDBColumn
        DataBinding.FieldName = 'CRPHONEEXT'
        Width = 54
      end
      object dbgPersTableView2CRMOBILE: TcxGridDBColumn
        DataBinding.FieldName = 'CRMOBILE'
        Width = 80
      end
    end
    object dbgPersLevel2: TcxGridLevel
      GridView = dbgPersTableView2
    end
  end
  object dbgAdr: TcxGrid [10]
    Left = 0
    Top = 388
    Width = 667
    Height = 150
    TabOrder = 6
    LookAndFeel.Kind = lfStandard
    object dbgAdrTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dsClAdres
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsData.Deleting = False
      OptionsData.Inserting = False
      OptionsView.Navigator = True
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Preview.Column = dbgAdrTableView1CLCOMMENT
      Preview.Visible = True
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object dbgAdrTableView1OFTOWN: TcxGridDBColumn
        DataBinding.FieldName = 'OFTOWN'
        Width = 120
      end
      object dbgAdrTableView1ADRTYPE: TcxGridDBColumn
        DataBinding.FieldName = 'ADRTYPE'
        Width = 101
      end
      object dbgAdrTableView1CLADRESS: TcxGridDBColumn
        DataBinding.FieldName = 'CLADRESS'
        Width = 411
      end
      object dbgAdrTableView1CLCOMMENT: TcxGridDBColumn
        DataBinding.FieldName = 'CLCOMMENT'
      end
    end
    object dbgAdrLevel1: TcxGridLevel
      GridView = dbgAdrTableView1
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qFindClient
    Left = 144
    Top = 152
  end
  object qFindClient: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BeforeOpen = qFindClientBeforeOpen
    SQL.Strings = (
      'SELECT C.CLID, C.CLNAME, J.CLLEGALNAME, J.CLINN, T.SDNAME CTYPE'
      '  FROM CLIENTS C'
      '  LEFT OUTER JOIN CLIENTS_J J ON (C.CLID = J.CLID)'
      '  LEFT OUTER JOIN SYS_DIC T ON (C.CLTYPE = T.SDID)'
      ' WHERE UPPER(C.CLNAME) CONTAINING :CN'
      ' ORDER BY C.CLNAME')
    Left = 168
    Top = 152
    ParamData = <
      item
        DataType = ftString
        Name = 'CN'
        ParamType = ptUnknown
      end>
    object qFindClientCLID: TIntegerField
      DisplayLabel = #1050#1086#1076
      FieldName = 'CLID'
      Origin = '"CLIENTS"."CLID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qFindClientCLNAME: TIBStringField
      DisplayLabel = #1050#1083#1080#1077#1085#1090
      FieldName = 'CLNAME'
      Origin = '"CLIENTS"."CLNAME"'
      Size = 255
    end
    object qFindClientCLLEGALNAME: TIBStringField
      DisplayLabel = #1070#1088'. '#1085#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'CLLEGALNAME'
      Origin = '"CLIENTS_J"."CLLEGALNAME"'
      Size = 255
    end
    object qFindClientCLINN: TIBStringField
      DisplayLabel = #1048#1053#1053
      FieldName = 'CLINN'
      Origin = '"CLIENTS_J"."CLINN"'
      Size = 12
    end
    object qFindClientCTYPE: TIBStringField
      DisplayLabel = #1058#1080#1087
      FieldName = 'CTYPE'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object qClAdres: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT A.CDID, A.CLID, A.CLADRESS, A.CLCOMMENT,'
      '       S.SDNAME ADRTYPE, O.OFTOWN'
      '  FROM CLADRES A'
      '  LEFT OUTER JOIN SYS_DIC S ON (A.CLADRTYPE = S.SDID)'
      '  LEFT OUTER JOIN OFFICES O ON (A.CDOFID = O.OFID)'
      ' WHERE A.CLID = :CLID'
      ' ORDER BY A.CLADRESS')
    Left = 192
    Top = 320
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CLID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qClAdresCDID: TIntegerField
      FieldName = 'CDID'
      Origin = '"CLADRES"."CDID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qClAdresCLID: TIntegerField
      FieldName = 'CLID'
      Origin = '"CLADRES"."CLID"'
    end
    object qClAdresCLADRESS: TIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089
      FieldName = 'CLADRESS'
      Origin = '"CLADRES"."CLADRESS"'
      Size = 255
    end
    object qClAdresADRTYPE: TIBStringField
      DisplayLabel = #1058#1080#1087' '#1072#1076#1088#1077#1089#1072
      FieldName = 'ADRTYPE'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qClAdresCLCOMMENT: TIBStringField
      FieldName = 'CLCOMMENT'
      Origin = '"CLADRES"."CLCOMMENT"'
      Size = 255
    end
    object qClAdresOFTOWN: TIBStringField
      DisplayLabel = #1060#1080#1083#1080#1072#1083
      FieldName = 'OFTOWN'
      Origin = '"OFFICES"."OFTOWN"'
      Size = 40
    end
  end
  object dsClAdres: TDataSource
    DataSet = qClAdres
    Left = 168
    Top = 320
  end
  object qPersons: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dlgDS
    SQL.Strings = (
      
        'SELECT A.CRID, A.CDID, A.CRFIO, '#39'('#39'||A.CRPHONECODE||'#39') '#39'||A.CRPH' +
        'ONE CRPHONE,'
      
        '       A.CRPHONEEXT, '#39'('#39'||A.CRMOBILECODE||'#39') '#39'||A.CRMOBILE CRMOB' +
        'ILE, O.OFTOWN'
      '  FROM CLPERSONS A'
      '  LEFT OUTER JOIN OFFICES O ON (A.CROFID = O.OFID)'
      ' WHERE A.CLID = :CLID'
      ' ORDER BY A.CRFIO')
    Left = 192
    Top = 472
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CLID'
        ParamType = ptUnknown
      end>
    object qPersonsCRID: TIntegerField
      FieldName = 'CRID'
      Origin = '"CLPERSONS"."CRID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPersonsCDID: TIntegerField
      FieldName = 'CDID'
      Origin = '"CLPERSONS"."CDID"'
    end
    object qPersonsCRFIO: TIBStringField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103' '#1048#1084#1103' '#1054#1090#1095#1077#1089#1090#1074#1086
      FieldName = 'CRFIO'
      Origin = '"CLPERSONS"."CRFIO"'
      Size = 255
    end
    object qPersonsCRPHONE: TIBStringField
      DisplayLabel = #1058#1077#1083#1077#1092#1086#1085
      FieldName = 'CRPHONE'
      ProviderFlags = []
      Size = 18
    end
    object qPersonsCRPHONEEXT: TIBStringField
      DisplayLabel = #1044#1086#1073#1072#1074
      FieldName = 'CRPHONEEXT'
      Origin = '"CLPERSONS"."CRPHONEEXT"'
      Size = 5
    end
    object qPersonsCRMOBILE: TIBStringField
      DisplayLabel = #1052#1086#1073#1080#1083#1100#1085#1099#1081
      DisplayWidth = 18
      FieldName = 'CRMOBILE'
      Origin = '"CLPERSONS"."CRMOBILE"'
      Size = 18
    end
    object qPersonsOFTOWN: TIBStringField
      DisplayLabel = #1060#1080#1083#1080#1072#1083
      FieldName = 'OFTOWN'
      Origin = '"OFFICES"."OFTOWN"'
      Size = 40
    end
  end
  object dsPersons: TDataSource
    DataSet = qPersons
    Left = 168
    Top = 472
  end
end
